2 POKE53280,5:POKE53281,15:POKE646,9
3 PRINT"[147]       A TPUG EDUCATIONAL PROGRAM
4 [153]"           FOR C-64 COMPUTERS
5 PRINT"             GRADES K TO 2
6 [153]"               NUMBERS                  WAIT"
7 [153]"         INSTRUCTIONS?  (Y/N)
8 GETR$:IFR$=""THEN8
9 IFR$="N"THEN900
10 PRINT"[147]            INSTRUCTIONS [146]
12 [153]"*THE PURPOSE OF THIS PROGRAM IS TO HELP  LITTLE PEOPLE ";
14 [153]"LEARN THEIR NUMBERS.
16 PRINT"*MOST PRE-SCHOOL CHILDREN, THANKS TO     SESAME STREET, HAVE LEARNED";
18 PRINT" TO COUNT    TO TEN "
20 PRINT"*HOWEVER, THEY DO HAVE SOME DIFFICULTY   RECOGNIZING NUMBERS";
22 PRINT" AND THEIR PROPER    SEQUENCE.
24 [153]"    ** PRESS [SPACE] TO CONTINUE **
26 GETB$:IFB$=""THEN26
30 PRINT"[147]*THIS PROGRAM SELECTS NUMBERS AT RANDOM  AND ASKS THE";
32 PRINT" STUDENT 'WHAT NUMBER COMES AFTER  N [146]?"
34 PRINT"*IF THE STUDENT'S RESPONSE IS CORRECT    THE COMPUTER SMILES ";
36 PRINT"AND MAKES AN        ENCOURAGING SOUND."
38 PRINT"*AN INCORRECT RESPONSE RESULTS IN BOTH   A FROWN AND A RUDE";
40 PRINT" NOISE FROM THE       COMPUTER."
42 PRINT"    ** PRESS [SPACE] TO CONTINUE **
43 [161]B$:[139]B$[178]""[167]43
44 [153]"LOAD*IF THE STUDENT IS UNABLE TO READ, YOU   SHOULD QUIDE";
46 [153]" HIM/HER THROUGH SEVERAL    SEQUENCES AND POINT OUT WHERE";
48 [153]" THE 'KEY' NUMBER IS LOCATED ON THE SCREEN.
50 PRINT"*AS SOON AS THE CHILD HAS CAUGHT ON TO   THE PROCESS PLEASE";
52 PRINT" BACK OFF SINCE THE   GAME HAS ITS OWN BUILT-IN POSITIVE AND";
54 PRINT"  NEGATIVE REINFORCERS.
56 [153]"*YOU CAN SELECT THE HIGHEST NUMBER TO BE USED IN THE GAME.
58 PRINT"*AT THE END OF 10 QUESTIONS, THE         COMPLETION TIME IS SHOWN
60 [153]"*YOU CAN PRESS Q WAIT TO STOP THE GAME
62 PRINT"    PRESS SPACE BAR TO START THE GAME   [146]"
64 GETR$:IFR$<>CHR$(32)THEN64
66 GOTO900
70 PRINT"[147]  WHAT WILL BE YOUR HIGHEST NUMBER?":GOSUB500
72 INPUTM
118 REM 120-160 INITIALIZES VARIABLES AND CLEARS SCREEN
130 S=1024:E=10:TS=12:CO=55296
140 R=RND(-TI):PRINTCHR$(147)
168 REM 170 PICKS RANDOM INTEGER FROM 1 TO M
169 TI$="000000"
170 R=INT(M*RND(1))+1:IFR=PTHEN170
178 REM 180-240 ASKS QUESTIONS GETS ANSWERS DETERMINES IF RIGHT OR WRONG
180 PRINT:PRINT
190 PRINT"[147]  WHAT NUMBER COMES AFTER   ";R  :PRINT
195 PRINT"                           [162][162][162][162]"
200 PRINT"   ANSWER AND PRESS  RETURN [146]
205 [153]:[153]
210 [153][163]15):[133]R$
215 [139]R$[178]"Q"[167][137]440
220 [139][197](R$)[178]R[170]1[167]300
222 [129]X[178]1[164]400:[130]
225 [137] 650
300 [153]"  GOOD! WAIT                      GREAT! WAIT
305 FORX=1TO800:NEXT
310 GOSUB 600:GOTO 820
400 PRINT"[147]   YOU MADE IT IN" VAL(TI$) "SECONDS!! "
405 PRINT"   CAN YOU DO ANY BETTER?  (Y OR N)
408 D[178]0
410 [161]R$:[139]R$[178]""[167]410
415 [139]R$[179][177]"Y"[175]R$[179][177]"N"[167]410
420 [139]R$[178]"N"[167]440
425 [139]R$[178]"Y"[167]170
440 [153]"LOAD  YOU HAVE A CHOICE:
445 PRINT"  PRESS  P [146] TO PLAY AGAIN
450 [153]"  PRESS  M WAIT TO RETURN TO THE MENU
455 GETR$:IFR$<>"P"ANDR$<>"M"THEN455
460 IFR$="P"THENRESTORE:GOTO 2
470 PRINT"[147] RETURNING TO THE DISK MENU
475 [147]"MENU",8
480 [138]
485 [128]
499 [143] RIGHT SOUND
500 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
520 [151]54276,23:[151]54273,23:[151]54272,181
530 [129]T[178]1[164]150:[130]:[151]54276,32:[129]T[178]1[164]200:[130]:[151]54296,0:[142]
549 [143] WRONG SOUND
550 [129]X[178]1[164]400:S[178]54272:[129] E[178]S[164]S[170]28:[151]E,0:[130]
560 [151]54296,15:[151]54277,18:[151]54278,242
570 [151]54276,33:[151]54273,4:[151]54272,48
580 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]:[151]54296,0:[142]
598 [143] SMILE
600 [151]1720,81:[151]1722,81:[151]1799,74:[151]1800,67:[151]1801,67
610 [151]1802,67:[151]1803,75
620 [151]55992,6:[151]55994,6:[151]56071,6:[151]56072,9:[151]56073,9:[151]56074,9
630 [151]56075,9:[141]500:[142]
649 [143] FROWN
650 [151]1720,81:[151]1722,81:[151]1799,85:[151]1800,67:[151]1801,67
660 [151]1802,67:[151]1803,73
670 [151]55992,2:[151]55994,2:[151]56071,2:[151]56072,0:[151]56073,0:[151]56074,0
680 [151]56075,0:[141]550
685 [153]"LOAD  YOU GOT " D " CORRECT IN A ROW.":[141]550
690 [153]"  YOUWAIT CAN DO BETTER THAN THAT.":[141]550
695 [129]T[178]1[164]3000:[130]:D[178]0:[137]170
790 [129]T[178]1[164]500:[130]:[142]
791 [129]T[178]1[164]1000:[130]:[142]
792 [129]T[178]1[164]2000:[130]:[142]
793 [129]T[178]1[164]3000:[130]:[142]
795 [129]T[178]1[164]5000:[130]:[142]
810 [151]53281,1:[153][199](147);
815 [151]53289,14:[151]53281,6
820 D[178]D[170]1:[139]D[178]10[167]400
830 [137] 170
899 [143] TITLE 'PAGE'
900 [153]"LOAD     1":[141]990
905 [153]"        2":[141]990
910 [153]"           3":[141]990
915 [153]"              4":[141]990
920 [153]"                 5":[141]990
925 [153]"                    6":[141]990
930 [153]"                       7":[141]990
935 [153]"                          8":[141]990
940 [153]"                             9":[141]990
945 [153]"                                10":[141]990
950 [153]" 1   2   3   4   5   6   7   8   9   10":[141]990:[129]T[178]1[164]500:[130]
955 [153]"    WELCOME TO THE GREAT NUMBER GAME    ":[141]990:[129]T[178]1[164]500:[130]
960 [153]" 1   2   3   4   5   6   7   8   9   10 ":[141]990
965 [141]795:[137]70
990 S[178]54272:[129]L[178]S[164]S[170]24:[151]L,O:[130]:[151]S[170]5,14:[151]S[170]9,240:[151]S[170]24,15
992 HF[178]S[170]1:LF[178]S
994 [151]S[170]4,17:[151]HF,[181]([187](0)[172]50)[170]80:[151]LF,250:[151]S[170]4,16:[142]
1000 [143] DESIGNED BY BILL CUMBERLAND 85:02:20 AND REVISED 90:11:28